{
read(k);
i := k;
s := 0;
while i>=0 do {
  read(k);
  s := s+k;
  i := i- 1
};
write(s)  
}